﻿Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> Public Class OpenPitSources
    Implements ICloneable

    Private m_OpenPitSource(-1) As OpenPitSource '敞口源数组
    Private m_nStack As Integer = 0 '污染源编号，污染源编号只增加，不减少以避免重复。
    ''' <summary>
    ''' 污染源编号
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property nStack() As Integer
        Get
            Return Me.m_nStack
        End Get
        Set(ByVal value As Integer)
            Me.m_nStack = value
        End Set
    End Property
    ''' <summary>
    ''' 敞口面源
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property OpenPitSource() As OpenPitSource()
        Get
            Return Me.m_OpenPitSource
        End Get
        Set(ByVal value As OpenPitSource())
            Me.m_OpenPitSource = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New OpenPitSources

        ReDim obj.m_OpenPitSource(Me.m_OpenPitSource.Length - 1) '敞口源数组
        For i As Integer = 0 To Me.m_OpenPitSource.Length - 1
            obj.m_OpenPitSource(i) = Me.m_OpenPitSource(i).Clone
        Next
        obj.m_nStack = Me.m_nStack  '污染源编号，污染源编号只增加，不减少以避免重复。

        Return obj
    End Function
End Class
